﻿Imports Entities
Imports Model
Public Class NegocioACCESS
    Private conectACCESS As New ConectadoAccess
    'LIBROS POR TITULO
    Public Function SQLgetLibrosPorTitulo(tituloLibro As Libro) As ObjectModel.ReadOnlyCollection(Of Libro)
        Return conectACCESS.GetLibrosByTitle(tituloLibro)
    End Function

    'OBTENER CATEGORIAS
    Public Function SQLgetCategorias() As ObjectModel.ReadOnlyCollection(Of Categoria)
        Return conectACCESS.GetCategorias
    End Function

    'OBTENER LIBROS
    Public Function SQLgetLibros() As ObjectModel.ReadOnlyCollection(Of Libro)
        Return conectACCESS.GetLibros
    End Function

    'LIBROS POR CATEGORIA
    Public Function SQLgetLibroPorCategoria(categoria As Categoria) As ObjectModel.ReadOnlyCollection(Of Libro)
        Return conectACCESS.GetLibrosByCategory(categoria)
    End Function

    'OBTENER MOROSOS
    Public Function SQLgetMorosos() As ObjectModel.ReadOnlyCollection(Of Cliente)
        Return conectACCESS.getMorosos
    End Function

    'OBTENER PRESTAMOS
    Public Function SQLgetPrestamo() As ObjectModel.ReadOnlyCollection(Of Prestamo)
        Return conectACCESS.getPrestamos
    End Function

    'INSERTAR PRESTAMO
    Public Sub SQLIntroducirPrestamo(prestamo As Prestamo)
        conectACCESS.PrestarLibro(prestamo)
    End Sub

    'DEVOLVER LIBRO PRESTADO
    Public Sub SQLIntroducirDevolucion(prestamo As Prestamo)
        conectACCESS.DevolverLibro(prestamo)
    End Sub

    'OBTENER CLIENTES CON CIERTO EJEMPLAR
    Public Function SQLgetClientesConTalEjemplar(libro As Libro)
        Return conectACCESS.getClientesPorNombreLibroPrestado(libro)
    End Function
End Class
